2011/04/04

Recent entries from same category

  1. PerlでWindowsと親和性の高いreadlineが欲しい → あった「Caroline」
  2. Perl をゆるふわと語ろう
  3. cpanfile とは何か、なぜそれを使いたいのか
  4. plackup の --path 引数
  5. Github Notification API が出たので通知を Growl するの書いた。

昔どこぞのパクリブログ対策でやってた奴をPlack::Middlewareで。

mattn/Plack-Middleware-ReplaceToUnko - GitHub

plack middleware for replacing images to shit image that referer from external sites.

https://github.com/mattn/Plack-Middleware-ReplaceToUnko

指定の仕方も簡単で、ウンコ画像のURLを指定するだけ。
use strict;
use warnings;
use utf8;
use lib 'lib';
use Plack::Builder;
use Path::Class qw(file);

my $app = sub { [ 302, [ "Location" => "/index.html" ], [] ] };

builder {
    enable 'ReplaceToUnko'unko_image_url => "/unko.png";
    enable 'Static',
      path     => qr{^/.},
      root     => file(__FILE__)->absolute->dir,
      encoding => 'utf-8';
    $app;
};

こうしておけば
replace-to-unko1
普段はこう見えるけど、リファラが違うドメインで直リンされてる場合は
replace-to-unko2
こうなっちゃう><

いかんせんモジュール名がPlack::Middleware::ReplaceToUnkoなので使いたい人はモジュール名変えて使って下さい。

えっ?自分で変えろ?



やだ!


Posted at by